'replace:
'(path) to folder path of key e.g.HKEY_LOCAL_MACHINE\SOFTWARE\pbd

'(key name) to keyname

'(key) to key data



        My.Computer.Registry.SetValue _
        ("(path)", "(key name)", "(key)")